home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / N-R / Photone Prepress 2.04.cpt / Photone Prepress™v.2.04D.rsrc / PSTx_2_BinSep < prev    next >
Text File  |  1993-03-18  |  3KB  |  224 lines
  1. %© 1990 by CEP, Inc., All Rights Reserved
  2.  
  3. /ppSetFrequency 
  4. {
  5.     /htFrequency exch def
  6. } def
  7.  
  8. /ppSetAngle
  9. {
  10.     /htAngle exch def
  11. } def
  12.  
  13. /ppSetSpotFunction
  14. {
  15.     /htSpotFunc exch def
  16. } def
  17.  
  18. /doColorLabel
  19. {    
  20.     /colorName exch def
  21.     /v exch def
  22.     /h exch def
  23.     gsave
  24.         h v translate 
  25.         /dep 11 def
  26.         /wid 50 def
  27.         0 setgray
  28.         newpath 
  29.             0 0 moveto 
  30.             wid 0 lineto 
  31.             wid dep lineto 
  32.             0 dep lineto 
  33.         closepath 
  34.         fill
  35.     grestore
  36.     gsave
  37.         h 25 add v 3 add translate
  38.         /Courier-Bold findfont 
  39.         9 scalefont setfont 
  40.         colorName stringwidth 
  41.         pop 2 div neg 0 translate 
  42.         0 0 moveto 
  43.         1 setgray 
  44.         colorName show
  45.     grestore
  46. } def
  47.  
  48. /box 
  49. {    /bwid exch def 
  50.     newpath 
  51.         0 0 moveto
  52.         bwid 0 lineto 
  53.         bwid bwid lineto 
  54.         0 bwid lineto 
  55.     closepath 
  56.     fill
  57. } bind def
  58.  
  59. /doCyanPatches
  60. {    /v exch def
  61.     /h exch def
  62.      gsave
  63.         h v translate
  64.          0 setgray
  65.         24 box 
  66.         0 96 translate 
  67.         24 box 
  68.         0 24 translate 
  69.         24 box 
  70.         0 24 translate 
  71.         24 box 
  72.     grestore
  73. } def
  74.  
  75. /doMagentaPatches
  76. {    /v exch def
  77.     /h exch def
  78.      gsave
  79.         h v translate
  80.          0 setgray
  81.         0 48 translate 
  82.         24 box 
  83.         0 24 translate 
  84.         24 box 
  85.         0 24 translate 
  86.         24 box 
  87.         0 48 translate 
  88.         24 box 
  89.     grestore
  90. } def
  91.  
  92. /doYellowPatches
  93. {    /v exch def
  94.     /h exch def
  95.      gsave
  96.         h v translate
  97.          0 setgray
  98.         24 box 
  99.         0 24 translate 
  100.         24 box 
  101.         0 24 translate 
  102.         24 box  
  103.         0 96 translate 
  104.         24 box 
  105.     grestore
  106. } def
  107.  
  108. /doBlackPatches
  109. {    /v exch def
  110.     /h exch def
  111.      gsave
  112.         h v translate
  113.          0 setgray
  114.         0 168 translate 
  115.         24 box 
  116.     grestore
  117. } def
  118.  
  119. /doCropMarks
  120. {    .25 sub /bottom exch def
  121.     1.25 add /right exch def
  122.     1.25 add /top exch def
  123.     .25 sub /left exch def
  124.     gsave
  125.         .24 setlinewidth
  126.         0 setgray
  127.         %top left
  128.         left 18 sub top moveto -24 0 rlineto stroke
  129.         left top 18 add moveto 0 24 rlineto stroke
  130.         %top right
  131.         right top 18 add moveto 0 24 rlineto stroke
  132.         right 18 add top moveto 24 0 rlineto stroke
  133.         %bottom left
  134.         left bottom 18 sub moveto 0 -24 rlineto stroke
  135.         left 18 sub bottom moveto -24 0 rlineto stroke
  136.         %bottom right
  137.         right 18 add bottom moveto 24 0 rlineto stroke
  138.         right bottom 18 sub moveto 0 -24 rlineto stroke
  139.     grestore
  140. } def
  141.  
  142. /doBorder
  143. {    /wt exch def
  144.     /grayVal exch def
  145.     /bottom exch def
  146.     /right exch def
  147.     /top exch def
  148.     /left exch def
  149.     gsave
  150.         htFrequency htAngle {htSpotFunc} setscreen
  151.         wt setlinewidth
  152.         grayVal setgray
  153.         newpath
  154.             left bottom moveto
  155.             left top lineto
  156.             right top lineto
  157.             right bottom lineto
  158.         closepath
  159.         stroke
  160.     grestore
  161. } def
  162.  
  163. /doText
  164. {
  165.     /theStr exch def
  166.     /v exch def
  167.     /h exch def
  168.     
  169.       gsave
  170.         h v moveto
  171.         /Courier findfont 10 scalefont setfont
  172.         theStr show
  173.     grestore
  174. } def
  175.  
  176. /doRegisterMark
  177. {    
  178.     /v exch def
  179.     /h exch def
  180.     
  181.        gsave
  182.         h v translate 
  183.         0 0 moveto
  184.            .24 setlinewidth 0 0 6 0 360 arc stroke
  185.            -10 0 moveto 
  186.         20 0 rlineto 
  187.         0 -10 moveto 
  188.         0 20 rlineto 
  189.         stroke
  190.     grestore
  191. } def
  192.  
  193.  
  194. /imageProc
  195. {    gsave
  196.         /dep exch def
  197.         /wid exch def
  198.         /reproDep exch def
  199.         /reproWid exch def
  200.         /v exch def
  201.         /h exch def
  202.         /negDep dep neg def
  203.         /picStr wid string def
  204.         htFrequency htAngle {htSpotFunc} setscreen
  205.         h v translate
  206.         newpath
  207.             0 0 moveto
  208.             reproWid 1 add 0 lineto
  209.             reproWid 1 add reproDep 1 add lineto
  210.             0 reproDep 1 add lineto
  211.         closepath
  212.         clip
  213.             
  214.         reproWid reproDep scale
  215.         
  216.         { currentfile token pop (binary) eq {exit} if } loop
  217.  
  218.         wid dep 8                 
  219.         [wid 0 0 negDep 0 dep]    
  220.         { currentfile picStr readstring pop } bind         
  221.         image    
  222.     grestore
  223. } bind def
  224.